home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9404a.d64
/
imp.source v1
< prev
next >
Wrap
Text File
|
1995-03-30
|
9KB
|
560 lines
;---------------------------------------
;
; - ╔ ═ ╨ ┼ ╥ ╧ ╔ ─ ╓ 1 -
;
; - BY ╚ANNES ╙OMMER -
;
; - (C) ═ARKT & ╘ECHNIK '94 -
;
;---------------------------------------
V = 53248
BORD = 703
*= $8000
JMP TITLE
COLS .BYTE 0,0,0,0,0,0,0,0
.BYTE 0,0,0,0,0,0,0,0
.BYTE 0,9,8,10,15,7,1,1
.BYTE 1,1,13,3,14,4,6,0
.BYTE 0,0,0,0,0,0,0,0
.BYTE 0,0,0,0,0,0,0,0
;------------ ╞ ╠ ╔ - ╠OGO -------------
FLI
LDA #56
STA $D011
INC FLY1+1
FLY1 LDA #0
LSR A
AND #31
TAY
LDX #0
FLI0 LDA COLS,Y
STA $50,X
INY
INX
CPX #15
BNE FLI0
LDA #0
STA $5F
LDA #49
FLI1 CMP $D012
BCS FLI1
LDX #3
FLI2 DEX
BNE FLI2
LDA #63 ;╠INE #1
LDX #8
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #63 ;╠INE #2
LDX #8
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #63 ;╠INE #3
LDX #8
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #63 ;╠INE #4
LDX #8
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #63 ;╠INE #5
LDX #8
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #63 ;╠INE #6
LDX #8
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #63 ;╠INE #7
LDX #8
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #63
LDX #8
STA $D011
STX $D018
LDA #0
STA $D020
STA $D021
LDA #88
STA $D011
RTS
;-------------- ╘ ╔ ╘ ╠ ┼ --------------
TITLE
SEI
LDA #0
STA $D020
STA $D021
STA $D01A
STA $D011
STA V+27
STA V+23
STA V+29
LDX #16
TI0 STA $D000,X
STA $D400,X
STA $D408,X
DEX
BPL TI0
LDX #0
LDA #$35
STA 1
TI1 LDA $BC00,X
STA $D800,X
LDA $BC28,X
STA $D828,X
LDA #0
STA $D918,X
DEX
BNE TI1
LDA #<NMI
STA $FFFA
STA $FFFE
LDA #>NMI
STA $FFFB
STA $FFFF
LDA #196
STA 56576
LDA #27
STA $D011
LDA #224
STA 56322
TI20 LDA $D011
BMI TI20
SEI
LDA #120
STA $D011
LDA #216
STA 53270
LDA #24
STA 53272
JSR FLI ;** ╞╠╔-╠OGO! **
TI99 LDA $D011
BPL TI99
JMP TI20
NMI RTI ;*** ╬═╔ ***
XPOS .BYTE 90
YPOS .BYTE 104